home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / dugan's art depo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  105 lines
  1. 1 ifx>.then10
  2. 2 poke53280,.:poke53281,.
  3. 3 print"[147]"
  4. 4 print"     [215]elcome to [196]ugan's [193]rt [196]epot..."
  5. 5 :
  6. 10 ifx=0thenx=1:load"unpacker",8,1
  7. 20 ifx=1thenx=2:load"bload.o",8,1
  8. 30 :
  9. 40 bl=828:unpack=51456:hgr=51459
  10. 50 :
  11. 55 np=5:dim t$(np),a$(np),r$(np)
  12. 57 forx=1tonp:readt$(x),a$(x),r$(x):next
  13. 60 gosub 50060: rem title screen
  14. 70 forx=1tonp:gosub60000
  15. 80 print"[154]"
  16. 82 printspc(19-len(t$(x))/2)""t$(x)"[146]"
  17. 84 print""spc(19-len(a$(x))/2)""a$(x)"[146]"
  18. 90 sysbl,16384,r$(x)
  19. 92 :
  20. 94 ifpeek(198)<>0thengeta$:poke198,0:ifa$="q"ora$="[209]"thengosub10000
  21. 96 poke249,224:poke250,204
  22. 98 poke251,0:poke252,64
  23. 99 poke253,0:poke254,0:print"[147]";:sysunpack:syshgr
  24. 100 ag=3.34
  25. 110 fordl=1to1500:ifpeek(198)=0thennextdl:goto120
  26. 112 geta$:ifa$="q"ora$="[209]"thensyshgr:gosub10000:syshgr
  27. 120 syshgr:print"[147]":poke198,0:next x
  28. 130 goto70
  29. 140 :
  30. 10000 rem a key was pressed
  31. 10005 poke53281,1:poke53280,5
  32. 10010 print"[147][144]  [193]re you sure you want to quit [[217]/[206]]?"
  33. 10020 poke198,0:wait198,1:getag$
  34. 10030 ifag$="y"orag$="[217]"then30000
  35. 10040 return
  36. 30000 rem quit
  37. 30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  38. 30020 ifer<>63thenprint"[147]":end
  39. 30030 load"hello connect",8
  40. 50000 rem data <title>,<author>,<real>
  41. 50010 data "[213]nderwater [211]cene","[208]atrick [196]ugan",underwater.shp
  42. 50012 data "[205]issile","[208]atrick [196]ugan",missile.shp
  43. 50014 data "[205]onkey [198]ace","[208]atrick [196]ugan",monkey.shp
  44. 50016 data "[208]lum [194]ottle","[208]atrick [196]ugan",bottle.shp
  45. 50020 data "[214]isit","[208]atrick [196]ugan",visit.shp
  46. 50060 rem title screen
  47. 50065 print"[147]":poke53281,1:poke53280,1
  48. 50072 print"         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  49. 50082 print"         [221][204]oadstar [208]resents[221][152] "
  50. 50092 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  51. 50102 print"                             "
  52. 50112 print
  53. 50122 print"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  54. 50132 print"  [221]       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
  55. 50142 print"  [159][221]       [221][196]ugan's [193]rt [196]epot[221][154] [159]       [221][152] "
  56. 50152 print"  [159][221]       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
  57. 50162 print"  [159][221]        [154]                   [159]       [221][152] "
  58. 50172 print"  [159][221]                                  [221][152][160]"
  59. 50182 print"  [159][221]   [211]lide [211]how [208]resenter written   [221][152][160]"
  60. 50192 print"  [159][221]         by [193]lan [199]ardner          [221][152][160]"
  61. 50202 print"  [159][221]            ([195]) 1987              [221][152][160]"
  62. 50204 print"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
  63. 50212 print"                                       "
  64. 50222 print
  65. 50232 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  66. 50242 print"     [221]  [193]ll pictures created by   [221][152] "
  67. 50252 print"     [221]       [208]atrick [196]ugan        [221][152] "
  68. 50272 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  69. 50282 print"                                    "
  70. 50292 :
  71. 50302 print"   [ Press any key to start the show[160]]";
  72. 50312 print"";
  73. 50314 poke198,0:wait198,1:poke198,0
  74. 50316 poke53281,5:return
  75. 59990 :
  76. 60000 :
  77. 60001 poke53281,1:poke53280,5
  78. 60005 print"[147][146]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  79. 60010 print"    [221][204]oadstar is proud to present:[221][152] "
  80. 60020 print"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  81. 60030 print"                                    "
  82. 60040 print
  83. 60050 print"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  84. 60060 print"  [221]                                 [221][152] "
  85. 60070 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] "
  86. 60080 print"  [150][221]  [154][221]                          [221] [150]  [221][152] "
  87. 60090 print"  [150][221]  [154][221]        created by        [221] [150]  [221][152] [146][160]"
  88. 60100 print"  [150][221]  [154][221]                          [221] [150]  [221][152] [146] [160]";
  89. 60110 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] "
  90. 60120 print"  [150][221]                               [150]  [221][152] "
  91. 60130 print"  [150][221]                                 [221][152] "
  92. 60140 print"  [150][221]                                 [221][152] "
  93. 60150 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] [146][160]"
  94. 60160 print"  [150][221]  [154][221] [195]oming soon to a computer[221] [150]  [221][152] [146][160]"
  95. 60170 print"  [150][221]  [154][221]        near you.         [221] [150]  [221][152] [146][160]"
  96. 60180 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] [146][160]"
  97. 60190 print"  [150][221]                               [150]  [221][152] [146][160]"
  98. 60200 print"  [150][221]                                 [221][152] "
  99. 60210 print"  [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  100. 60220 print"                                      "
  101. 60230 print
  102. 60240 print"         [ Press 'Q' to exit ]";
  103. 60250 print"";
  104. 60260 return
  105.